library("ggplot2")
library("reshape2")
library("ggfortify")
library("tidyverse")
library("plotly")
source("functions.R")
data <-read.csv("data/alrosa/revenue.csv", sep = ",")
# avoid sorting
data$Dt <- factor(data$Dt, levels = data$Dt)
df <- data
p <- revenuePlot(df)
link <- revenuePlotInteractive(p)
link